@L}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLLI $j") $G% }H 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆  LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}p}s. OS  !!"#DOSDOS SYS }}}d## ee}CDOS SYSb$AUTORUN SYSb&MENU BXLb4SNAILS BXLbIPICOADV BXLbILEM BXLb GTIATESTBXLb CIRCLES} BXLV}1@  `e  ɐ r   D`BJ }KLD:AUTORUN.SYS|DE VLieeB~DEHI VLX~6/~B!}DEHI VLi8~B~DEHI VLi lL  B V oLqll"};LHL @E: K  u  lllll,hhr'Il#} \LAlllShLZ $ \LA E7:8 K ` HH` U0: }L 䙣ލȎ!"` !"H h`lDD KJ%}"LXB.UNEM:D"NUR"...TIAW ESAELP...";6#?:6,2.SOP0,0,2.CTES:0,0,1.CTES:2.RG"H h`lDD KJJKL>PFILENAMETEMPTITLENMBFNKEYPRESSEFILENUMBEJUNKLINCOUNBLANALPH'} *********************(}* BASIC XL MENU ** ** BY DAVE LOCKWOOD **********************$"set up var)}iables".#6-#"start off right"8+6-@:A,&@+"basis of letters"B "(only DIMension needed:)"L;*}@&<@,VSET UP SCREEN` +j) AR@)"turn off cursor"tDRAW BORDER~,, $******** B+}ASIC XL ToolKit ********-@@",, $* * -- $******************,}******************((POSITION 2,23:PRINT CHR$(255);"*";READ DISK DIRECTORY((@@-}D:*.BXL/@/"a file name from directory"7&87@<@,4 * @&7"if good name"6-%@.}6-[< <@, !@6-@6.7@<&@,67Y,.D:.BXL(-X@/}6-@<*6-@"-=26-P:'@%@P,< - >:%,. F/@/"a file name from directo0}ry"P9Z@dn""NOW ALLOW USER TO CHOOSE ONEx##@@K:( 8@("unti1}l we get it right!"*-@@"*(Your selection?)@6-+X @,&$!*$"sele2}ction ok"-@!@" 7Y, A AR %7Y,= AR@9 D:MENU3}.BXLL>PFILENAMETEMPTITLENMBFNKEYPRESSEFILENUMBEJUNKLINCOUNBLANALPHLM HVHVHMVVMVHMVVMVSCORESCOREFREVOLUMMOVBANGBANGSCOREBANWINNE 5} @d---SNAIL'S 6} TRAILS---nx''(from the movie of the same name)11This game requires 2 JOYSTICKS plugged into00connector 7}s number 1 and 2 (STICKs 0 and 1)!!need small array for scores9@,''just in case somebody changed i 8}t:S@@VWhy not?Loop until someone wins++88, @*8@, @ 9} +@$$(do SETCOLORs here if desired)"C @,1/@9C/@y@9,' :}/@y'/636-@ 6-@ '6-@`36-@ @46-@6-(6-6@ ;}46-J'-6-'6-T# @,@#,^)  SCORE) PLAYER 1PLAYE <}R 2h 8,8@,r|--- Start a round ----@PAP@P -@ =}6?2@  22********************************************MAIN MOVE LOOP22** >}****************************************** 8(+),-+%@,XAUSense and move PLAYER 0+a: ?},6-a:,+6-+`:,6-`:,+6- 6-%6-&&Sense and move PLAYER 1 @}0+a:@,6-a:@,+6-:+`:@,6-`:@,+6-D 6-%6-&NX##Check if A} either hit somethingb 11lv##and show them if they did not(@,(@ B},Music, maestro -@6@2@ 922******************* C}*************************Somebody hit something22********************************************!+(,+(, D}!if only one hit68(,-8(,%@  -@6?% 0+(,@*2@# E}4 >=H9R\%%End of game (WHILE loop exited)fp +@z6-+8, 8@,,- F}@@++ @PLAYER %@ WINS:-@@ @8, TO 8(,++Sta G}rt new game when button is pressed,, #PUSH JOYSTICK BUTTON TO PLAY AGAIN 8T:,*T:@,9% H} D:SNAILS.BXLVHVHMVVMVHMVVMVSCORESCOREFREVOLUMMOVBANGBANGSCOREBANWINNE ? @KBONZERKEHERVERWESTWRESPONSEOYEVERBVSNOUNNSNOUNOUNSVERBSFOUTHREVBASNBASVISIBLDIRTRUFAJ}LSCRAZTORCHFIRCHARHUNGRDELAYWHEREDEANOFUEGNORTEASSOUTDIDILINESHOWOFDONTHAVHONDELAYJUNKCNWHERVISIODELK}AYDELAYWAIMAXCARR L} M}@ !"#$%&'()@*+N},-./01234567Vd((( }*************O}****************e%%(* *f%%(* PICO-ADVENTURE *g%%(* P} *h%%(* a very tiny adventure, *i%%(* intended to demonstrate *j%%(* techniques of BASIC XL *k%%(* tQ}hat can actually make *l%%(* writing adventures easy! *m%%(* *n%%(* If you modify, sR}wipe, or *o%%(* distribute this, please *p%%(* give credit to OSS and *q%%(* BASIC XL. *rS}%%(* *s%%(* by Bill and Bev Wilkinson *t%%(* *u%%(* T}砡 *v%%(* *w%%(*****************************! A!SET UP VARS, ETU}C. 6-@K:7( ()(0)7(}TT(L}I am your ͠, a creature V}of smallmind, put together of sticks, stones,i,($string, mud, and not a little magic./(2(Y("I will try to do as you aW}sk withini( the limits_( of my small powers.\(;I understand a few words, and accept commands of the form:_(X,X}($ VERB NOUN or ACTION OBJECT/(X($Also, I understand that I am to movePP(HNorth, East, South, or West when yY}ou command me with simply the letters ('N', 'E', 'S', and 'W'.2(2(&Also, 'I' shows what you are carrying._Z}((One small clue:\(= An object's visibility depends upon your awareness of it._((!(([})GET EVERYTHING STARTED (}0@N6-@6-6@(6-@2 ApNSTART OFF IN RI\}GHT 'ROOM'8-@8($ **************************BEGIN THE REAL WORK]} ************************** A`L+-@#+ Tell me what to do >> V,6. &6.^},6-[8` )j"AU6-t2<"A&! (>:,*67,.26-&~;<"A`6-@2!_}=-@2;6-X@,%@2*+ @e)!@,,(.< @67,.>:,&6-%.(>:, = `}= = 9RESPONSE GOTTEN6. is.&7<,4 67,.7,& A6-[< <,C6.7<,&6.>a}:AU, 37<,4i9(C A6.7%,&7<,4 67,.7,& AP! 6.!6.>:AU,b} 6-[<<,6-[<<,6-@:7%,,6-@:7%,,,+(,*7<,4 ,6-[NESW<7<,<,c}6-6 =REACT TO RESPONSE(-@@(( (E(!(I don't know how to 8( sod}mething.;(E A2;(*7<,0i.(I don't know what a 1(; Ax VALID RESPONSE, PER SYNTAX/ !#e}%"!6-[<*<,%/67,./ !#%"!6-[<*<,%/67,. ! I will try to  ! f}  . A %(%(That didn't make sense.  @+<+ I will attempt to go 76Y,.J g} Ap= AVECTOR SUBROUTINE41 6- A!1 B%$A%$@> 6- B%$Ah}H SOMETHING IS WRONG&p"̠Ӡ"z# 6-&6-&6-&#6-&?(-@#.(i}2 6 ?(68@,-6=G"@(G(.}I'm in the cave and my torch is not litj}.L(I stumble, fall down...# H( and hit my head on a sharp rock!L Q< 8@,*8@,G("}I'm in thk}e cave without a torch!Q A`! = =G(-@#?(%C G  (l}=F(-@#5(9 = F(#(6-#68@,-A*(-@#m}&( ɧ*   6-  6-  6-  6-@ 7$X""n}b Ap%O:,$@c&l 6- Aqv 6- Aq 6- Aq 6- WATER HAZAo}RDK2(*}I just walked into water over my headK( and I can't swim ! #<!@#SPECIAL ACTION p}< "NO WAY(I can't go that way.< 6-6- = == 2#B%@$-2(q}I am * 6- 8"6-[<=<,467,.> z9 " $L"קr}Š"V+%(How? There's no  here.((+$"""ŠŠ"!(I don't have a .!$s}"ĠĠԠ" ( (( ɧ͠Ġ (\( (0("Only by playing another game can IS(escape the fires oft} purgatory.V(Y(\(2   %x"Ӡ"6-@` AxE6-A  AxE6-A AxEu}6-A@!@ 8F:@ , !9$""  I did it!$""3v}-@3(󺠠 6-S@-@)8,*8,"#%")6-[<*<,w}67,.0 6-%X$ d:@,'<* -=0="  (" nothing special".-@#+0@x}X@@.$@"ԠР̠Ӭî"JR-@6-%6-%'6-&-6-36-96-R"Last is for Ty}RAP OFF"TK6-Av6-Au!6-'6-36-Aw?-AxK-Ax ^3-AxP-Ax0'-Ax@36z}-Ayh 6-6-%rC;@<@,.7@Y,.NorthC7@Y,.East|.7@Y,.South.7@{}Y,.West&&9@0,9@0,;A,bb;@ ,;@ ,;@ ,;@,;@,;@$@|}0,;@$@5,6-A6-A$ 6- # A6.$6. 6- # A;6-@}};"nouns numbered 11+ are too big to carry"$ 33(ROUTINE TO BUILD UP NOUN OR VERB VOCABULARY)  6-"noun/verb ~}number" -@" 1167$@&@,.>:AU,7<,>:,& #[<*<,#"if last synonym"0 "8},8,:  6-%=D [<#<,$N  X $`"""a"GET,TAK,PIC*b"DROP,GIV,PUT*c"LOOK,EX}A*d" THROW*e"GO ,WAL,RUN,ENT*f"SAY,SPE,TAL*g"BURN,LIG*h"INTO,IN *i" READ*j"EAT,TAS,NIB,DRI*k"IN}VENTORY,I *#""""LICHEN,MOS*,3,0"MUSHROOM*,4,0"ZIPPO LIGHTER,LIG*,100,1"BLUE PEBBLE*},6,0"GRAY PEBBLE,PEB*,6,0"CAMPFIRE,FIR*,2,0"BRANCH,TOR*,2,0"MIRROR*,100,1"MAGIC LAMP,LAM*,100,1"}SWORD,EXC*,11,1"POOL,CRE*,5,0"ALTAR,STO,INS,WRI*,13,0"LAKE,RIV,WAT*,100,0"MARSH,SWA*,12,0"BOAT*,10,}0"A LA ...*,100,0"JUNKPILE,PIL*,15,0"BILLBOARD,SIG*#,16,0''""''(("For}mula: 10000+Verb*1000+Noun*10'**" verb and noun numbers are last"'))" two digits of line numbers of"',," t}heir respective DATA statements"*( $GET*+ !+ Sorry, I can't lift a .*5<6-8,!5THE} OBJECT IS SOMEWHERE*  *<68,-68,- =*1<"1 I already have a  !!*/<,  }How? The  is gone forever./=+= =6-$+ 6-+&8,*"68,-=& B + 6- B +}*+6-@ B4+(6-@ B5+F!(}I got the FIRE alright!% ((F(My clothes are on fire!!!}6+( ( ( >+ 6- B.( $PUT.: 8,"6-68,-:(I'll leave the  here..<  =}$2(6.placeLOOK28,*8, 28<, Nothing special about this ./=56-8$28,*8,*} 2.+(#The lichen is very dry and brittle..$38,*8, 3(B0374(,The branch is on fire, making} a fine torch.7$3 8, 3@+(#Unbelievably clear reflection of my=( warty visage!@$"3 8, #3!(Looks v}aguely arabian.!$,3 8, -3Q)(!Only a sword forged by the druidsQ(#could bespeak an history as long as.3$!( doe}s Ҫ$$63@B073LL(DI see a bottomless pool of bright bluewater. My unbroken reflection8}3*'(obscures the truth of my quest.*$J3 @ K3(It's a pretty lake.$r3@ s3(B0}t3E6-@"@'6-@*=6"@B6-@ E=u3D 6-&2("I found something in the junkpile.A68,}-@D$6b((I'll throw a fit!2-@AS(>:@2%@$H:,,W Z$bTHROW6! 8,"}6-!68,-6Q<+( I threw the  in the water.D( It's gone forever.N68,-6Q=6<  =$68,})@B@6]-(%I throw the blue pebble into the blueN(pool...the ripples spread...]68,-@6R R(FI} see a vision: the Lady of the Lake sits in her palace in the marsh,6[*("combing her hair with the aid of aR(#scratched} and dented copper mirror.X6-[$7""8,)@)"B@7LH(?I throw the mirror into the marsh, andan ugly be}ast grabs it...L 7c( ..and takesc(Kit to the Lady. She charms my eyes so that I see the path to the island.76}-@68,-6$:Q(H(;Thanks, but I used the restroom beforewe started this trip.N6-Q$:$; @} ; 6-6 Aq$;@ %; 6-6 Ap6-$.;P"@(9("I get in the boat and start to }rowP(toward the island./;Q ,( The wood in this boat is rotten!Q( It falls apart. The boat sinks.0;  (}I c}an't swim! 1;<  =$>>("(Oh SAY can you see...& 5( I'm silly.8$>SAY>8  Okay, I will:"('}'5( Did it help?8$ ?V8@ ,=( I need something special to makeS(those words work.V<!?B-@}6@*-A:2@> B "?Q*("Q("}󠡡#?.*(". $?((A genie appears! %?QN(F ...and gives me my peanut butte}r sandwich. It tastes good!Q(&?\-@AU-2@@1 H-@6?%X2@2}\ )? = $hB$(( Pyromaniac!! $BURNiB 6- $rB? 8,8, <<(With what? I'm not a boy scout.?}=sBF<8,"(OK... =(OUCH...I BURNED MY HAND!F68,-tB;<8,"(OK... ;(the lichen burned b}rightuBW( and hot...":(but there's nothing leftW(to burn, so it goes out.vB8<)(and sets the branches }on fire!56-@8=wB$<( and went out.=$68,-xB <  =yB= = $BM 8,"(8,:(I burned} up all the wood withM(the last fire!B$<$(I tried, but the fire wasBOL(Ddoused with water and is still too dam}p. I need something drier.O=B-<*(With what? I'm not a boy scout.-=B<  =$BI+(8,,)+8,",(8,I(}&This branch just won't burn by itself.Bc&(I think I need a pile of wood.)<`(2With what? I flunked my firemaking me}rit badge.c=B<  =$PF INTOQFP+(#That request may even make sense...P( but I'm not a smart enough golemRF*!(}to understand it. Sorry.'6-*$FK8@,"*"@K(*}I raise EXCALIBUR high over my head...F: )(an}d plunge it into the stone!,(/(2(6 : FU,($My task is accomplished...the sticksU($and stones of my golem body star}t toF`*("fall apart. But I cease to exist M(knowing that I have succeeded!`( ŠĠF   (((}8J READ9J`-(%Am I a sorcerer, that I can read thatW(%which is not written? Nay, I cannot.]6-`$JW"@}-(The inscription says:W(%Ϡ䠠JZ-(%W(%}ǠĮZ(JT<,(!The inscriprion is writ in mysticT(#runic characters. No modern man inJ&#(}his right mind may read it.&=J<  =$JK"@'(The billboard says:K( ٠٠ΧӠӠ}JQ'( 庠K( ĠΠħQ6-J)<)(I don't see a billboard here.J }= $ N EAT"NJ 8,"#(Well, I'll try...' 5( OUCH!!!J(I broke a tooth!#N<  =6-$*NI 8,"5(}$The lichen is dry and chewy...tastesI(pretty good...+N) (but I feel strange."(%() ,N3/('}I think I'm sick..}.in fact, I think...3 -N<  =$4NY 8,"3("Be this a mushroom or a toadstool?Y(!Oh well, you only adventure a} few5NA$(hundred times...here goes !!( A(I feel OK so far...6ND (but now I feelD(%a bit dizzy, as if I'm se}eing things.7N;6-@ 2(I think it will pass soon.;68,-8N<  =6-$RINVENTORY R( 6-S@}( I'm carrying:  R, -8,"#%",6-[<*<, R67,. R  6-= R  (  }not a thing!R( 6-$0u"͠Ӡ":u\\"at the entrance to a dark cave.=","A cool breeze issues from the} depths.",0,30012,2,0>~'R:,@'Change level/-@@%@$/ @  6-(}28R:,@92wait to center stick=9&&This is one program which really''needs to RUN} as fast as possible!V..We use full screen version of GRAPHICS 7++and the finer resolution P/M Graph}ics +@%@P@(..Now set up all our strings, arrays, etc.2as well as all constants<}F((First, the stuff that needs a sizeP&&;@&,;@&,9@,Z<<9@,9@,9@,9@},9@,dn((This DATA is for the bounce soundsx67,37,30,25,21,16++And we use it to initialize our ar}ray-@ "8, --This DATA gives the shape of the lander//0,0,0,0,0,$80,$42,$C2,$5A,$B}E,$3C,$7E,$7E//$7E,$7E,$5A,$42,$42,$42,$42,$E7,0,0,0,0,0**So use the data to create the landerimage withi}n a string-@@&"67,.>:, ((Now we have the data for the flame0,0,0,0,0,0,0,}0,0,0,0"$18,$18,$18,$18,$18,$18,0,0,0,0,0,0,0,0,06And we set up the flame@image within a stringJ-@}@&T"67,.>:,^ hr++Now set up the acceleration constants|,,0.05,0.015,0,-0.015,-0.03},-0.045,-0.06++0.015,0,-0.01,-0.02,-0.03,-0.04,-0.05$$Choose which acceleration data#Ap<#A}=##Then put it into thrust array-@ "8, 33Some miscellaneous constants, lo}cations, etc.6-B2x6-@16-b:,&@16-b:@,&@ 6-C:,6-C:,&(6-b}:@,%@2(6-%AY0:))***********************************DN++The main loop...used once per landi}ngXb-@@l''Reestablish proper graphics modesv+@%@P@''First, clear out a}ll players,etc.-@NR@Q !!Then, set up various colorsQO@}@7O@@QO@@@Q0@70@@Q0@}@**Ensure collision registers are clear**Set up initial conditions for lander0}6-6-'6-@P0Always/6-]@W<A,/Somewhere on screen6-6-@6-}A` ##Set up fuel line on left side > B*L%@&@46.FUEL>-@B:,}H99L Bp%@:7,,$@%AR%$@@R \Q@@Hfp$$Set up terrain and landing pa}dz##First, pick pad size and spot##Width of pad depends on level6-]@ <@,<6-]}@<@6,=6-]@<AH&,''And an initial height for terrain6-]@<@ ,D}raw left part of terrain'6-@6-&@' A9Then draw the pad @ -%+&@, } ,/&$  . ))And, finally, right side of terrain8 ! 6-%6-AY! A9B ''Sprinkle some stars on t}he screenL V @` !!-@]@0<@p,j !!,]@<AY,]@,t  ~  Blink the la}nding pad -@@ -@6@ C0@C2AP&$@@}@     40@@4Restore proper value :%2:and turn off }sound  ))***********************************  ##The main lander movement loop  ,,This loop must be as} tight as possible **so the code may get a little obscure ( II8(Z<@,*(Z<@,*!@U* A}*!@2 L%@&Q< !L%%@&!Q@F 6-`:,P )! @)}6-%@Z ) !@)6-&@d T:,)(6-n <x 6- 6-% !@}6-&@ 6-&@& = = '6-%a:,$?'6-%8,  6-%6-% !!2}@E@% 9 ' 6-&6-&'Correct overshoot  ))***********************************  }We're down...somewhere   N@Turn off flame" @.Z<@,*?*O:, ?0@REM not a crash}, What kind of landing?6 %?P%A very good landing@ ((We let the crowd give them a cheerJ -@}?T #2@%@# ^ and whistlesh -@@r 6-]@<@,| 8]@,} @ -@0@6?  2@@  -@@05?  2@@}  9 %%2@ #6-]@<A,# A9   Calm down the crowd -}@6? #2@%@#  ;6-AP;6-A$+?P&,%@$+@@&,  }++A bouncy landing...just so-so but fun  <6-P:,& 77-P:@$+&?0,%?P,@6@0 = -}@6?%928,@= : 6-?`$6-$@D -@N 6-&'X L%}@&b  l -@v 6-%' L%@&     C -@6?%?28},@C  ;6-A;6-A$+?&,%@$+@@&, =from IF YVEL<=0.5  <from I}F BUMP...  --Crash landing! Call out the stretchers  N -%@%@! %]AV,}   Let it fly in pieces -@@* ''2@@%@4 -68,-&@F-68,-'}@&@> !8,!@!68,-@H !8, !68,-@R @68,-6@$H:,@68,-@}$H:,&@P\  f p 6-@6-@z  NN@ 8 -@@ 3 AW}32XAU@@ 8,)8,6-%@  6-8,6-8, 68,-8,%8, (68,-8,%}?(68,-8,%8,  , G98,!AY)8,!@)8, )8, G6-&@ !68,-}!68,- <  @,8,8, == 9$%%2.'6- }6-'6-8/Z<@,/6-@ $+@&,B'='from IF BUMP ..., way up aboveL+@ }%@V @ LANDING `1 @1 @U SCORE ####j1 @1 @ULANDI }NG BONUS ####t1 @1 @U FUEL BONUS ####~5 @5 @U TOTAL ####%%6- }%%%3 @3 @UTOTAL FOR ROUND #####6-A@ A8# A8 ))************* }**********************Allow another game(-(*@A% @ @&& }@U FINAL SCORE #### @ @"" @ PUSH JOYSTICK %% @BUTTON TO PLAY AGAI}N8T:,9%(33*********************************************2<Delay subroutineFP&&Enter wi}th ticks desired in WAITZd6-+F:@ ,%,XAUn8F:@ ,9x$ Subroutine to draw terrain}&&Draws terrain from XLOW to XHIGH @ - ,/&8H:, ?P&6-%@}8Drunkard's walk<6-&@=96-?$ )6-9Limits on ALT $} D:LEM.BXL$%$LEVELANDERFLAMETHRUSTPLOPXYYVELXVELBYTDATCURRENTTHRUSHITCLYSIZADRLANDEADRFLAMLANDEFLAMFUELLI   ,uTIMEGTI""****************************""* SAMPLE PROGRAM: TEST GTIA*}""****************************-V-"needed on large programs, at least" A'+@%@'-@}@$ @ YOU HAVE A.-@@8 @gtiaB< @CTIAL+-@@}+ @(sorry!)V=`$$6-+F:@ ,% AU,X AUj8F:@ ,9t(#""****************************}2#""* SUBROUTINE: TEST FOR GTIA*<#""****************************F#P#%%"enter: should be in FAST mode"Z#d#%%" e}xit: GTIA=1 if GTIA, else 0"n#**" screen is in GR.0 and clear"x##" +""ensure text mode"#&& TESTING} FOR GTIA...PLEASE WAIT# P@ "enable players"#8R@8"so player is 4 characters wide"#4 N}'O4"prettier"#.QA."right on top of GTIA"#= >b:,%@ BU5=>b:},%@ BU5#6  A#F: A#,W A6"turn on GTIA mode"#6-F:@ ,#8F:@ ,"9#4 B2x}4"zeroes collision registers"#$$6-+F:@ ,%@,X AU#8F:@ ,9$6-(+F: B2R,,$2  }A#F: A#,X @c2"GTIA mode off"$1 NR@1Q"$> +>"turn off players} gracefully, clean up screen",$$D:GTIATEST.BXL""****************************""* SAMPLE PROGRAM: TEST GTIA*:() XYRADIUTDELTDIFCONSOLSTARTKE!} ************************ CIRCLE DRAWING DEMO ************************V"}"helps a little"$."constants"8B6- B2y6- @LV"give directions"`j +#}t)) !This program will draw circles in~** " mode 8 graphics. You are asked** " for the radius and center po$}int  of each circle. )) !If you choose 0 for a radius, the,, $ display will become a full screen++%} # display until you push the START  button. ++ #The coordinates of the screen range&&  from 0,0 &}at the top left to&&  319,159 at the bottom right,, $ (319,191 in full screen display).  ,, $The center '}of the circle (and indeed++ # any part of the circle) need NOT** " be within the boundaries of the(,, $ disp(}lay!! (Try radius of 150 and2,, $ center of 160,50 for an interest-<,, $ ing example; follow by radius 0.)F P)}&& Push START to use the program.Zdn 8F:,X9x1 +@@10@*} 8@-8(    , A, radius of circle >> + "++@+}%@H 8F:,X9+@%@2=9, A,X-position of center >> ""Y-position of,} center >> +  A+"draw the circle"9""""bad input ends the session", +6@""*-}***************************J""* ACTUAL CIRCLE SUBROUTINE *T""****************************^h++"enter: xc,yc -- .}center coordinates"r((" radius -- radius desired"|%-@&&6-%6- 8$$"plot th/}e 8 reflection points" A,%% A ,%% A0,%& A@,%& AP0},&& A`,&& Ap,&% A,&%  "set up for next 8 points1}"% %-%%%%%@<6-&6-&@-%%%%%@&=06-%@:9D2}$N D:CIRCLES.BXLDELTDIFCONSOLSTARTKEXYSTACMBYTEDENSITDRIVBUFFESECTOSTATDCSTATUDENSITYBUFFERBYTSTARTBYTTEMPSYS!4}  ******!5}******************** * PROGRAM TO DEMO DISKIO * **************************##@@K: +!6};@,,, $This program demonstrates the use of$((  the DISKIO subroutine, which .&&  starts at !7}line 9000 herein.8 B)) !Since this program only READs theL,, $ disk, it is not dangerous to use,V-- % and no!8} precautions have been taken`,, $ to prevent you from giving it badj** " data (e.g., non-existent drive,t((  !9}bad sector, etc.). Most such~-- % errors will cause an error message++ # and an abrupt halt. Others will$$ !:} cause only an error code. $$ First, answer two questions: 6-8 @)!@ ))W!;}hich drive (1-8) will we use? 9 (6-2+8(+"until the turkey gets it right"<'' Is it single or!<} double density?F## Answer with S or D >> P4S)4s6-@Z4D)4d6-@d9nx!=}NOW WE GET TO DO IT* 8@*"until the chips fall out" +))What sector (1-720, $1-$2D0) ? !>}**AND DO THE ACTUAL CALL TO SECTOR I/O!6-@!"read a sector"36- A63"but use elsewhere, if you w!?}ish!" ATA DA!@  "## Bad read! Status was ., 6 < "good read, presumably"@!@}JDISPLAY THE SECTORT^ +h))  Sector #  ($\:,)r |))-$A(&@!A}@& 6.\:,& 7@<@,:-%%%@)6.\:F:,,) 7@<@,  "c!B}haracter display"  -%%%@!! >:@',>:F:,X A',   =% % Hit E!C}SC key to start over,** ! any other key to continue. >> ()@("get user's response""@'%&!D}9#(#SECTOR ACCESS ROUTINE2#---BY DAVE LOCKWOOD---<#THIS ROUTINE WILL READ ORF#WRITE ANY DISK SECTOR IN!E}P#SINGLE OR DOUBLE DENSITY.Z#YOU MUST CONFIGURE THEd#DRIVE FOR THE PROPERn#DENSITY.x## -----ENTRY PARA!F}MATERS-----#CMD.....(1=READ,2=WRITE)#!!DENSITY.(1=SINGLE,2=DOUBLE)#SECTOR..(1-720)#!!BUFFER..(ADDRESS OF BUFF!G}ER)#DRIVE...(DRIVE #[1-8])# --------------------------##-----EXIT CONDITIONS-----# STATUS...(<>1 IS AN!H} ERROR)#BYTES IN BUFFER:# : 128-SINGLE / 256-DOUBLE#-------------------------$$%6- Ah%"a univer!I}sal truth"$-%@:1,-"select device code""$!%@!"unit number",$"set up command"6$""@!J}"%@@:R,@$%<"@%%@@:W,J$< Bad command value!T$&^$=h$=r$4%@$ @d!K}4"direction flag for SIO"|$2>%@2"address that gets/gives data"$0>%@@0"timeout: 1.5 secon!L}ds"$#"@#>%@A($&<"@&>%@AV$< Bad density value!$&$=$=!M}$/!*A /"sector number ok?"$>%@"yes"$<$ Bad sector number!$&$=%@6-_:!N}@,$S@@"avoids need for PHA/PLA"%0-?: BW,0"call via dummy assignment"%$-F:%@,$"!O}real status"&%S@$ D:DISKIO.BXLSTATDCSTATUDENSITYBUFFERBYTSTARTBYTTEMPSYS 3y""KEZERKBTEMTEMPTEMPONBELVALUDRIVENUDENSITSECTORSPERTRACTRACKBYTESPERSECTOSECTORBYTESIDESELECAC%Q}ITBLHSTEPRATTBDCDRIVSIOCOMMANSIOCOMMANDJUNSISIOSTATUCONFIGTABLEDEFAULCLNULCNBELLCLSLINEDELLINEDECHOICB%R}YTDATTYPEMAPROMPTBLANKMISRESE %S} %T} !"#$%&'()%U}*+,-./0""+--------------------------+""| |%V}""| CONFIG.BXL |""| |""+--------------------------+$""**************%W}**************.""* SET UP CONSTANTS, ETC. *8""****************************B!-@6-!6-L'6-A%X}S6-A%'6-AVV,6- BW,"Serial Input/Output call"`&6- B&"System reset point"j(6- Ah%Y}("Device Control Block"t(6-AV("High byte multiplier"~;@,6-C:,0;@,0"a string fille%Z}d with zeroes";@2,6. &&;@,;@,;@, 6.>:,6.>:,6.>:,""*%[}***************************""* SET UP SYSTEM AS NEEDED *""****************************)S@)"don't push %\}parameters"@K:**"including DATA for default formats"..SINGLE,40,-1,0,18,0,0,0,128,255,-1,-1,-1%]}..MIDDLE,40,-1,0,26,0,4,0,128,255,-1,-1,-1 ,,DOUBLE,40,-1,0,18,0,4,1,0,255,-1,-1,-1""****************************"%^}"* THE MAIN WORK DONE HERE *(""****************************28***FOREVER!***< *F** " Disk Drive Config%_}uration ProgramP,, $************************************Z    d,, $Which disk drive do you wish to workn((  %`} with (numbers 1 through 8 arex))  valid, hit RETURN to quit) ?  )6-X A'- @I)! @V-"i%a}nvalid drive #"+ 6-?:,+"assume user wanted to quit"$<$"we start playing with SIO" *,6-%b}X @,"something to work with"! 6.S!"request status..."! A(!"...via SIO call"" !""presumably,%c} no drive"   '' Drive  does not respond...&&  be sure it is turned on and''  operational. Hit%d} any key to%%  continue or choose another"  disk drive. >> , )6<"status was valid"@! 6.N!%e}"read config table"J A("...via SIO"T* !*"hmm...can't read config tbl?"^   h"A9"NAK"r%f}(( Drive  is not configurable.|''  (A drive from Atari, Inc. ?)<"Huh?"%% Drive  gave me error%g} #,, $ and I don't know what that means.=)) !Hit any key to continue or choose##  another disk drive.%q}Ib DOS SYSb$AUTORUN SYSb&MENU BXLb4SNAILS BXLbIPICOADV BXLbILEM BXLb GTIATESTBXLb CIRCLES BXLb3DISKIO BXLbEPCONFIG BXLbiPHONE BXLbMAKEAUTOBXLbmBASICXL COMbAUTORUN BXLBSTARTUP EXC >>  ) < "a configurable drive!"# A&#"decipher the info"$ A"0$"and print the info"6-%r}@@"6 Would you like to change the,, #configuration of this drive (Y/N) ?6-8@:Y,*@:%s}N, )6-X @9&%"@:Y,%"he wants to, so..."0( A1("get new configuration!":-@%t}@" D$$ Hit any key to continue >> N )X=b=l=v=999.............................%u}......................""****************************""* GET A NUMERIC ENTRY *""* *%v}""* enter: value in DEFAULT *""* max value in MAX *""* exit: new or old value *""* in V%w}ALUE *""* CNT counts keys *""****************************6. [=:,] ?  f<@2&B:,%x}, 6-6-6- 8@' )6-X A' 9"A&6-m'6-@'9"force reenter"* %y} @H* @W *4%6-$@%+X @,%6-%><@'*H<R !"force repeat"\%z} 6-6-6-f f<@2&B:,,p=z==9(6-  $""*******************%{}*********""* DISPLAY CONFIGURATION *""**************************** *++ !Current Configuration of Drive%|} # ** "==================================   Nominally  " a single <"@ a double%}} <  an unknown =$ =  density,.   8  " single-B <"@ double-L <%~} -V =` =j  sided (headed) drive.t & &  Drive has  tracks and ~      sectors%} per track, //  each sector with  bytes. 6-$   For a total of   U#,###,### sectors%} 6-$   and   U#,###,### bytes    Drive is  ( NOT    selected. "" S%}tep rate is set at . ,, Manufacturer-defined value is . "" 'Reserved' value is .    $( !!*%}**************************2 !!* EXTRACT INFO FROM TABLE *< !!***************************F 6-F:%,P 6-F:%%}@,Z ##6-F:%@,$%F:%@,d 6-F:%@,%n 6-F:%@,x ##6-F:%@,$%F:%@, 6%}-F:%@, 6-F:%@ , ##6-F:%@,$%F:%@, $ !!*************************** !!* PUT NEW I%}NFO INTO TABLE * !!*************************** % %@ %@P:' AV, %@%}X AU %@& %@ %@P:' AV, %@X AU %@" %%}@ , %@P:' AV,6 %@X AU@ $J !!***************************T !!* MAKE AN SIO %}CALL *^ !!***************************h  6."ensure clean read"r #%@:1,#"bus I.D."| !%@%}!"unit number" %@@:, ''"set up direction value properly" * 4O%@ A(*"output" $<%}%@ @d$"input" = !>%@!"buffer addr" ->%@@-"arbitrary timeout" "set up%} number of bytes"  4S>%@@ <>%@@ = (>%@("sector #, not used" %}6-?:, 6-F:%@, $ ""****************************& ""* CHANGE CONFIGURATION BLK *0 ""******************%}**********:   D ++ #You may choose one of four options:N ) )  S -- standard Single densityX 0 0 % M -- Mid%}dle density, ala Atari 1050b % %  D -- true Double densityl + +  C -- Custom configuration, youv !!  set%} everything up! 0 0 %(Any other key will cause no changes) $ $ Your choice (S,M,D,C) ?   )6-X A'%} 6-[SsMmDdCc<>:,<, * 6-P:+%@,'@, !@!"if not custom" "@#Ap%} "@#A "@#A "   %% Setting up for  density. -@ "%} %   < * CUSTOM CONFIGURE4 > ))  Custom Drive ConfigurationH ((  ==========%}==================R   \ '' For the questions which follow,f )) ! hit RETURN to keep the currentp )) ! value, %}which is in [brackets].z   6.How many tracks % 6-6-AU A@%6- ##6.What step rate designato%}r % 6-6-AU A@%6- 6.How many sectors/track  6-6-P:BU6',  A@6- 6.%}How many sides (heads) % 6-6-@  A@%6-  Bit density select:   S -- Single   D -- Dou%}ble ))  C -- Custom Select S,D,C >  )6-X @ >:,"@:S,6-"@:D,6-@$-%}"@:C,-6.Density designator value.% 6-6-AU A@%6-8=B6.# of bytes per sectorL "%}6-A(V<"@6-AV` < 6-j=t=~6-A@ A@6-6.Select drive on/off%}+6-AU6-AU% A@+6-22"the hard part...putting data back in table"& A'0&"done for us thi%}s way"=44"configuration table is set up...write it out"% 6.O%"...except write table"! A(!"...and %}call SIO"3"@6.N! A(3"re-read table"!@  -- %Something went wrong, giving us err%}or  code number <"status ok"  A& A"0=$ D:CONFIG.BXLTORBYTESIDESELECAC$g;4$4ONZERTWTHREKBDBDBINPUOUTPUIOCBSTATUDBFSTATUCONSOLWAITMSGDOWNBLANKFILLCLSBELLLASTSIZFIRSTSIZ)}PHONESIZLASTFIRSTPHONERECSIZINDEXSIZFILEDBFDBXLINEKEYMAXINDEINDEXEDICREATINCREASFIGETLINGETLINEUGETFILENAM)}ESHOWREPOINTBYKEGETBYKEEDITMENCALCSIZSHOWFILEGETINDEXINFMAKEINDEINSERTKEDELAPUTBYKEDEBUTONETEMPTEMPKEUCFLAC)}OUNMAXLINREBYTNUMREMAXRESTARTRESECTOFROMADTOADTICWAITTOPTIONOPTIOCHANNECURRE)} )} !")}#$%&'()*+,-./012)}3@456789:;<=>?@A)}BCDEFGHIJKLM""=======================)}=====""= LITTLE BLACK BOOK =""= =""= TELEPHONE NUMBER DATABASE=""= AND PH)}ONE DIALER =""= =$""= concept by Dave Lockwood =.""= dialer: Dave Kampschafer =8""=)}===========================B=L""****************************V""* INITIALIZE VARIABLES *`""* USED AS CONST)}ANTS *j""****************************t~&V&"needed for dialer, at least""simple constants")}+-@6-#6-%+6-% 6-6-6- -%6-%6- A56-%$ @6- B)}2y"string constants";@5,;@,11;@@,;@@,;@,;@, !6.>)}:A%,!6.>:AS,6. 6.>:AU,(6.>:@),2//6.7<@,)} ...please wait...<F"data fields"PZ'6-@$6-@$'6-@$d;,;,;,nx"")}"data-dependent 'constants'" 6-@ 24+5+24+5+24+596-@9"4 chars(arbitrary) + 4 bytes overhead")}"miscellaneous"&&;@,;@,;@,2;@@,2"implied max length of a field" )};,""****************************""* SET UP MEMORY DEPENDENT *""* VARIABLES, ETC. *""*************)}***************!!6-P:+I:,&A,', ;$,""Subroutines",6"(main menu options)"@)}-B-BPJ-B-BPT^"(common subroutines)"h-AQ-AQ r-AT|)}-AW-A`-Ac-Af-Ai-Ar-At-Au-Ax)}-A-AcP-A""****************************""* INITIALIZE TONE ARRAY *""****************)}************9@<,#A-@ - "8<,  &&"data for tone dial frequ)}encies"151,3,176&221,4,2530151,4,253:87,4,253D221,4,131N151,4,131X87,4,131b221,4, 19)}l151,4, 19v87,4, 19221,3,17687,3,176 "....end of tone data...."""*****************)}***********""* MAIN MENU *""****************************K:8  -- %*******)}****************************** -- %* Little Black Book **-- %*************************************4.)} . #1 -- Use an existing BlackBook file>+ +  2 -- Create a new BlackBook fileH+ +  3 -- Increase maximum size of )}anR$$  existing BlackBook file\) ) 4 -- Fix/Recreate index for anf$$  existing BlackBook filep  )}  0 -- Quitz'  '  Your choice ?  6-8 @H)!@R   )6-X A'9)}"""got a valid menu selection""@H"0 = quit"&@H9!!.......)} END OF MENU .......!!***************************!!* SUPPORT SUBROUTINES *!!***************************)}44"Get Line -- no more than Maxline characters" 6-++"second entry -- for using U.C. only"  6.6-6-)}$8@')$6-X A'"A&**( 67,.6-&2<<.@2*A"* ."only)} if room"F+! @* A#+6-X @P *Z 6-%67,.>:,d=n=x9$++"Get)} Filenames -- both Dbf$ and Dbx$"",6-@6- 6[<:<,6.@<6.D1:J=T6.)}.DBF6..DBX^$hD++"Show Record -- show REC unless zero"NX"if valid record #"b6-+&,$)}l6.7%<%,v < 6.6.6.= -@@ -@@ -@)}@  -@@$p''"Point to Record defined by KEY$"z6-@:7&,,6-@:7&)},,6-@:7,,%$ A($"""Get Record defined by KEY$" B$)}(("Put Record by Key -- key in KEY$" A$ "Edit Menu Display"%%  )} Little Black Book   "6.(=:,//6. names in use of =:, possible)<++6.(Na)}me =:, of =:, names)="($-+@A&B:,,'@@( ,6EE"CAUTION: Next 5 lines won't list pro)}perly on most printers !!"@-- %J-- % T-- %)} ^-- %ﮠ h-- %)}r$|##"Calculate Maximum File Size"6.D:ZZZZZZZZ.999C A6A&)}%0 6-A:7@,,:, 6-A:,&,"-3 is for overhead"D  6-NXGb )}"6-$ASl<6-$A%v=6-P:'+%,, !6-$ "Show Files on this Disk"*)}4+ ( BlackBook files on this disk:+ > %D1:*.DBF H87<,4 R 7<@,\ 9 )}  fp((  Give me the name of the file youz  wish to use >>  $ "Get info from index f)}ile" B67$,.*DC:,$$$L//"make blank records and create new i)}ndex"V` 6.6.6.j t--@@!- Working on name # ~ -"-@3@!" U###)}# "6-X A'"6-P:' A(,6.7<&,>:,>:,>:,67B:,%,.A =)}B:,$@&=DEBUG DEBUG DEBUG DEBUG DEBUG DEBUG ACC:,B:,$x&&"In)}sert KEYed record into index" -& 6-$17%<%,  6-$ "UNLIKELY, BUT...)}67&%,.<6-C:,%6-%L6+&&,$67%<%,.=$"""delay for WAIT clock ti)}cks"6-+F:@ ,%,X AU8F:@ ,9$&HH=========== DEBUG ==================================)}==============&2(-&@26-$@%@&76-@:7,,#6-@:7%@,,76-@:7%@,,&FS)}@@F %@%A($7&@<&@,& )$'!!***************************'!!* EDI)}T EXISTING FILE *$'!!***************************.'S@ 8'** " Use an Existing BlackBook FileB'++ # )} ================================L' V' B:,"$`' j' t'%~' 6.6.6.' 6.*6-)}' 80M' '"-@" Main Edit Menu'-@''EE"CAUTION: Next 3 lines won't list properly on m)}ost printers !!"'-- %'-- %NLFDEAM'-- %)}'' '  Choose an action >> ' )6.>:X @,(6-[NLFDEAM_<<, (  )} (AAB0BBpBB pBB(<(( 2(=<(9F($P(Z("Next reco)}rd"d(n(  6-%x( < (=($(("Last record"((!@6-&(< 6- ()}=($(("Find record"(( 6-   )$$ Give me at least part of the)%%  last name of the perso)}n who)  you want to find ? ")6-@ B:,"$,)6.7<,6)6-[<<,@) ( J)<6-+&)},'%T)=^)$h)r)"Dial the number"|))8-@"8 # ...push START to begin dialing...) 8F:,X9)})-@"*AV))"""initialize sound registers") -)2@) )B7hA )})"dial the number")-B:,)%%6-[0123456789*#PpWw<7<,<,)"if valid at all"*!@"if not)} tone"*!@!PAUSE 6 SECONDS*6-A &*<-@"WAIT0*))  ...push START to continue...)}:* 8F:,X9D*-@"*AV=N*<"a tone to be dialed"X* B7f B7d8<,b*%B7b8<)},%B7`8<,l*'B7gAh'B7cAhv*6-@ TONE ON*'B7gA`'B7cA`)}*6-@ TONE OFF*=*=* *>> 7<@,&Dialing done...hit any key to continue* )*)}$**"Erase a record"**1  1 #Are you SURE you want to erase this*  name from the file ? + ))}>:X @,0Y $ +6-+&,$%6.7,+67,.7%, +67<&,.*+67+&,$%,.4+67B:,,.7<,)}>+ H+ -&6-R+$\+f+"Add a record"p+z+ 6-+ " $+ +0  0 "Enter the requested in)}formation in+  the proper fields.+(-@@"*@1(6-+ 6.+47N,,)} " Increase Size of an Existing FileHN++ #===================================RN   \N fN B:,"$pN zN)} N N 7<@,N$$  Currently,  will hold aN%%  maximum of  names, andN&&  you are using)}  of them.N, , !On this disk, it could be changedN))  to hold as many as  names.N. . #How many names)} do you want it to beN  able to hold ? N6-@ N B:,"$N 6-A:,N @)!$O 6-%)}6-O%O $O.O$a''*********************************a''* FIX/RECREATE INDEX FOR A FILE *a)}''*********************************a&&  Fix a BlackBook Filea%%  ======================a   a)} a%a b--@@!- Working on name #  b 6.67$,.*b 67,. b -6-*b8)}F:, * 4b >b"6-X A'"6-P:' A(,HbBRb6.7<,7<&@,\b6.>:,>:,>:,f*}b(7<,07<,("has been written"pb7B:,,47<,DELETEDzb    b%% Following record was deleted:b  *} b  b  b  7:X @,4Y$67B:,,. b*}< 6.6.6.b67<&,.c=c cA$cBECAUSE OF BUG IN DOS.c 8cBWE*} DO THIS!Bc=Lc=Vc"now do real processing"`c%7<,47<,%"filler record"jc 6-$tc67%<%,.~c"<"*}"a record with real data"c -%c 6-%c c=c 6-%c"-@3@!" U####c9c%%"Write *}out newly created index"cc AcCC:,$c  d$ D:PHONE.BXLLLASTSIZFIRSTSIZ(jfXLINETEMPLENGTDATBYTM@wdn,.},THIS PROGRAM MAKES AN AUTORUN.SYS FILEx))WHICH IS DESIGNED TO ALLOW BASIC XL((USERS TO BOOT AND EXECUTE A SERIES!. }!OF COMMANDS OF THEIR CHOICE**"We allow several lines of commands";A`,;A`,55"...so long as . }they are smaller than 160 chars",    6-- %Enter the series of statements, etc.,@-- % which you wish BASI. }C XL to executeJ)) ! upon power on. Terminate eachT((  with a RETURN. Terminate the^((  sequence with a RE. }TURN alone.h   "Accept commands"6.>: AU, 8B:, Command >>  B:,6.>:. } AU,B:,!AY  ,, $Sorry...you exceeded limit on number,, $ of characters in set of commands..} &=9Xb"now make the file"lv..@@ D:AUTORUN.SYS!!"First, the.} standard stuff"8"*@9"Now the set of commands" 6-B:,).}*@ )*@ @#*@#*@ @*@&@-@6@.} *@@:7,,  *"Finished"4@>""............................%%.}$FF,$FF,$A0,$06,$A2,$06,$4C,$AF%%$06,$AF,$06,$FB,$06,$A0,$0B,$B9%%$00,$E4,$99,$A3,$06,$88,$10,$F7%%$A9,$DE,$8D,$.}A7,$06,$A9,$06,$8D%%$A8,$06,$AC,$AA,$06,$AE,$A9,$06%%$E8,$D0,$01,$C8,$8E,$F6,$06,$8C$%%$F7,$06,$A9,$A3,$8D,$21,$03.},$A9.%%$06,$8D,$22,$03,$60,$AC,$00,$068%%$D0,$0A,$A9,$00,$8D,$21,$03,$A9B%%$E4,$8D,$22,$03,$B9,$01,$06,$CEL%%$00,.}$06,$48,$20,$FB,$06,$68,$A0V $01,$60`!!$FD,$06,$FF,$06,$6C,$FA,$BFj$44,$02,$44,$02,$00t$09,$00,$09,$00,$01~.}$E2,$02,$E3,$02,$A0,$06$E0,$02,$E1,$02,$FD,$06-1D2:MAKEAUTO.BXL@wdn,,XP~ ^Vn͠P iT )VdžʎVآQ]^ɢ~WXȊ Q QȩVȩ V2} CV ^V @WWLP Qک]¢pDPEBJ VI | ZLRD:AUTORUN.BXL}OSS BASIC XL Version 1.00Copyright2} (C) 1983, 1984 OSS, Inc. ?(8ee LMT8ueeeee2}褢 ƚƜ`8IȄ墅8夕奕墅褢`2}朱`$0 SDğȱȄ %RLR _H_H`0 $0 Se拱LVLVLP樱 HȱH`2}dʩV QTš Š` R RLRe``` +SII 0` )T $S0`ɀWLP2}S`IɈ S ^VLQT] Sf TLzP R LPS RC` [`IHEDHBLV jSSLP j2}ST`HI R PSH RhJKLM T` H R MSLR]Ș` OTn Z["/Ѝn Н2}Н` Aw)nJm\`LZ^Ո2 } ئ􆕄LVLzT TS T 9SLR TH TO@0'hɛO TLRGHFH`HILRLQTH ThKJ BSLQ2!}ڝJԝKħ  U0 {c W R 3S @W QLRUD:**.*ڑĩ`L=T`` &2"} &ee``&&ee`J e؅eمffff`樤 ` ۱$L2#}إH [h`I R [ R8O )Vԅ T`毤ɛ) T(`LTHH {chh d` S2$}I SI`ST`@$0`$0 VL```$0PݪV`@ # `ʄ2%}VLCV VL} V )VW VL^L^VSTOPPE wRȄ`` mdԅՅ֦󅗄`` T2&}W` KT0 B 8`8?0gP0YJJJJ)yWe0C)WeWeJJJJXe Xe0)2'}XeXeԥ` (23276INPUT/REA21} (DI EXPR -COMPLE LINE NOT FN NO FOLINE TOO BINO GOSUBAD LINNOT NUMERILOAD TOO BIFILE NOT SAVUSING FOR22}MAT/TYPUSING TOO BIRGET MISMATCNESTINPM END OF 'ENTER"#RENUM/AUTO RANGŁALREADY OPE΂NO DEV HANDLE҃-WRITE ONLلB23}AD DEV CMąNOT OPE·-READ ONLوEOƊTIMEOUԋNAˍSCREEN POS'ΐDEV DONőBAD GR MODœNO MEM FOR GҠDRIVE TOO MANY FILEӢDISK FU24}L̥FILE NAMŧPROTECTEĩDIR FUL̪FILE NOT FNīBAD POIN VV0$ UUVʅȄʱȱL|[ )V_ iTʅԩ25} _TcC\\5ȱA _ _0ȱA _, T _ V R0 _ iT TT )VL}` AT LINEERROR -S26}Swv}SU[szixyayyy}^}}pSZqpVP3z|}{6{D{[z}lqrOqwFqzYVZJrO{{vw!v}vv\v4vv?}}[sT.zz}}zzq27}q}{|M{{U}zzz{zqYYpYIXvXYq}}Vm}VSRXn)Z%ԅȄhg)%-Ա%28}dԈ%`Ա%d䱼%`ԅՆ֩פğȱȄA%0 R R029} WLf` TLf`` вLf`Lf`ȱ VV\Laъe拈$0:p4 R0#2:} R ReeL aLVȱ+I$PEȄȱȱ ٤LaiL` KW2;}0 [Ԇհ$0 ( $ȢԑL4aL5aȱ0ȘqiL`L` {cH) 2<}eh`    2=}  ddddddoeeeeeedceTTddddddddfeeeeejkkjjjjnnjnkjnnnoeklooooTeeeeokjljjo2>}opjpojij c0`LCT {cLe c` KT cԤ`  ȅjtۇ3*P\h"^'\6R c c2?})V.R樠 c5, c caXbŬ  cLcLc橠 c`bHcH`Ȅ`2@}0 `H$ UƦ(h0:ȱȊ"ȱօȘuԩׅu՘e֨҆ӄ` RU` 2U$Bj*)2A}Lng(!HHHHH [hhhhhҪeԨe` ?T RU`I` ue0HF? ue:= ue081 ue0,*- ue0#&2B} ue! AU% AU @Ԅթօׅ؅م`0 eHH 2U ehh` >eEըEL|j >eըL|j >e%ը%L|j2C}/Li 2U e` AU fڰ%` AU dLe `ڰ` AU ڰ ` 2U (۰` ;T TW` KT 0氤hhLc@@Ű e0&ԅ2D} 2U eԅ0 2U$P` ?TfҐאְ䘐ذي U U vUeee(eՅ$ ҥ2E}ե`Ȅ`⥰ gLf g 2U g 2U ҅Ҥ٥Lf֤צưĘ2ŗ,8֪א$0 2F} mdeԥe` GT g8` eԤ`) g 2U g 2U$0 g 2ULOgʆҪ) Ҧא֐2G} GT( QT ֊* Ueeeԅ֪e(e(eՅרiԐȄՠ֪ȱ$ քׄօץ`ȱ- ȥH {ch2H} RUԑ` h ~c h ` c ~c)`0+ 2U) Ԉ` RU` mdԅՅօׄ j2I}d ݦפ֥) ) ng٤؊ţĢeԨeժ)8Lh8包卅8墅8墅8墅 Q2J}H))28崅嵅(ȥѴѴ ȥLRi Yd8Ԩժ(א ֐ֆץ RUh2K}eԅԥeՅե) 8֥8`8إ8` md jd hU hU( ``(` e hh2L}`א ֐`` i8HheԅԘeՅեLXj e i80-eԅԊeՅե8֥ץ iLVj GT i2M}ֆ` md֤L|j eԅԄ ٩`8吪周L|j e)]ɠ KT eȪԨL|j W U @W -T m2N}dL|j mdLj (XLj إԥՠȱ)Ȅ eԍթԩׅ֩ө` eԅܥՅ jd jdeԅeՅ$82O}֥彅א8ⅼㅽLe.ԅՅڦ0$ LkեƼƽ0Luk8檥2P}e܅Ԙe݅Ljk ݬ ҄Ԭ ҄ LeBU6)` U lLj 2U e0 HHL leHl)8?Ք2Q} FکLeL elLj eFʆդ 2U eԅՅ8Ԩ0 leԥe` KT$ ԅ԰2R}չl԰ 9l԰`?8`$J)ԩem (ې`)8@0+ͪՅ)e)e ݦ `F2S} ݢm `ڢ ڰm @ݢ F I`U9>`D'RFuCU?b9dYdg@W2@?tS)%@2T})@0)%ԅԢ ޢ ڰ9 @ݰ. ڰ" fڥԅԥ m (`8`0?i2U} (۩ ݢؠn `ڢ ڢ ݢ (ۢ `ڢl ڥ fƢ ݥ#8@ji@)2V}j `@ l%` l` m` ް` ް ` ݰ` *n` KT 2U 0`Le0)ԥ)8@0ڢ2W}8ʈJHH ްh e ݰhԅ` ;T o,$p,%pLe o,&p,'pLeL!e e)x`< D2X}HPH eheԪ4L|j KT e) >eԆԪЊ))Ԣ))ઽ9$pLeLe e Sԅ2Y}LjY e ULe wR'$0, Vե pee0` V8` V`ֆנFfffԈ0uؕ`2Z}ħ` [j ?T8*020ֆׄ0ۄ؆ U vU0 ]qLp2 ʆإ٥ H* Uhee ]q2[}Lp DqLph)҆ֆפإLp Q8包ԥ卅 x[0 q` [ [` [)H [hԝ2\}]` KT qȥՑ` [ԍՍL4P`ħ [դԅ`>. [HH [HH [ԅIՅ09hehhe2]}hLzQȘhh8墅hh8墅LQ`ɅYULsZSOwh [ƨ$0,Y0 ةH sh0 h[2^}0֤ sLrLrį eį sLr +STƨL[rL[r  sT`)LT [ƨ h[ ݥ2_} %TⅣRJKLMNQƣ Uƣ椩 Bt It emNu uN٩Y ULrHHH [hhh2`}Y$"R h[P8OօL%t !TR0)Y'0 #THD Qh) 8Ƚ) Vt 2a}vt8@墅8QQ Bt It uƽL-s`8!0``@mK5 9i`00 ?`沱` Bt, t2b}ƽ`Ƥ` BtO T`R`ML梩`ƣhhLUsK`ƣLtƤmK < 棩` thhL-s %T 0*O t t` t 2c}t`+ -LJ t``$M t` t t` O t t tƲ`JƤƽ t`ťƢ T`ƥPP 2d}t` uHuH` vHvH`               tttttttttt2e}tttu2ut5urut2u2u2uuuhuuculu2u v TL{,wT T R PrLS [H [ H [heԨh` KT [ 2f}Hҩ [hHԝ [ H [hheԝ` [ԅUՅV [ԅT` [ԅ` vȍ T JK MSLRn SI S [2g}/w)I TLR vȢLTP:S:)YI` [`H Zy wR󥋅 zhȱȱȱȱ!2h}0eeLew ETŶ " ^xLw" [H涤hɛS ATh`_±/ +SS#ȱȄ2i} T樤 Q zTL#x Q sT Ux [H Whɛa TLxh QکS` S`LV򊅼ɛ ,Ȅɛż2j},ȱɛ` t[ H 0Z Z [ Z Dکթ@ W [ Zh x` fy  ,Z T`H Zh$0 ȑ2k}ȑLyȑȑʊȑ` Zy$0 SLVȱȱhhLQ [Յԅ wRhhLQ V 9T ZLx y ZH p2l}[ fڐ ;T Zh `ڰ8` `ڰۥ08` Cz` dz 7T䑐Ő82m}`8L7T KZ 0 Cz " @T(` 1T T$0 W Wȱ` V 3T [ W2n}Ly``<= ,Z`Ȅ [ 89L,Z8Lx KZ08 Cz8 3T T -SLz zH RhLTH R -SHH -Shh` 2o} !#$HILT Qک jSS zT S T 3S $SɈ SL^VLR R PS $SL.V& SLM 0V RNL.V R [ RԝL՝M2p} [ RԝN%HLS R [ԮILT RH Q 9S RL.V { { IH* PSLR R [ R՝EԝD [ R՝IԝH` 2q}Rƨ H U7 [ƨ҅0 1|L{ h[ ݥ؅ԥمթ 1|ؤ A| 8|L{` ?| FS R`H RhHI` RH [Ӆԅ2r}Յ҅  1|JL| h[ ݩ 1|85/ԥեؤ A|ԥ 8|ԥեҥ x[LV| T T |)LnV`H jSh2s}HHW R 9S R 9}} L+T C} ZWh`LwPW 'T R󥃅 ;S RLS [2t}ԍUՍV` [1 ]yԅħƳiL} [L}Ly` CVLq CVl Š} iT)LPHit START key to reRUN AUTO2u}RUN.BX̢} iTL^Not implemented!~P.@ @@I"$@2v}$@ @H@@H! HA$I  "2w} !   @D$@ D$"@ IB2x} DDDD"" 2y} $HPUUUUUUUUUUUUUUUUUUUUUU@B ! $@ @2z}$A @@!   H@2{} H $H@$ $@ 2|} $ $$$@ @$ @2}}@A@$$ @@ H I @ @2~} @  @!@H $ B!@ "2}PUUUUUU H$ @ $ @@@$@ $! @ $H@2}@  $D  IB$H$IH@I@ $HB@H$I2} I$~ BLVU? @Lǃmփȃm׃؃=ۃ`L؃؃L!؃փ׃` noL. Ƀ2}׃փ؃~%~$ii)ك)ڃڃ'ك&#Ȍ"~~"#L $%( ュ2}LƄ8(~mڃ(&'($%&' "З#L i=) i*)*ڃكlك`+ȩ V0u +@70@70@-@@("" @...PL6}EASE WAIT...2% D:MENU.BXL D:AUTORUN.BXL70@-@@("" @...PL44BASICXL SECTORS̠REM 㩠Ӭ㮠REMREM 򺠠REM 8